home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / emcs1857 / 1857el~1.zoo / lisp / iso8859-1-insert.elc < prev    next >
Encoding:
Text File  |  1992-02-04  |  13.7 KB  |  200 lines
  1.  
  2. (defun insert-no-break-space nil (interactive "*") (byte-code "ijêIJcç" [nil 160] 1))
  3.  
  4. (defun insert-inverted-exclamation-mark nil (interactive "*") (byte-code "ijêIJcç" [nil 161] 1))
  5.  
  6. (defun insert-cent-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 162] 1))
  7.  
  8. (defun insert-pound-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 163] 1))
  9.  
  10. (defun insert-general-currency-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 164] 1))
  11.  
  12. (defun insert-yen-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 165] 1))
  13.  
  14. (defun insert-broken-vertical-line nil (interactive "*") (byte-code "ijêIJcç" [nil 166] 1))
  15.  
  16. (defun insert-section-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 167] 1))
  17.  
  18. (defun insert-diaeresis nil (interactive "*") (byte-code "ijêIJcç" [nil 168] 1))
  19.  
  20. (defun insert-copyright-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 169] 1))
  21.  
  22. (defun insert-ordinal-indicator-feminine nil (interactive "*") (byte-code "ijêIJcç" [nil 170] 1))
  23.  
  24. (defun insert-angle-quotation-mark-left nil (interactive "*") (byte-code "ijêIJcç" [nil 171] 1))
  25.  
  26. (defun insert-not-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 172] 1))
  27.  
  28. (defun insert-soft-hyphen nil (interactive "*") (byte-code "ijêIJcç" [nil 173] 1))
  29.  
  30. (defun insert-registered-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 174] 1))
  31.  
  32. (defun insert-macron nil (interactive "*") (byte-code "ijêIJcç" [nil 175] 1))
  33.  
  34. (defun insert-degree-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 176] 1))
  35.  
  36. (defun insert-plus-or-minus-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 177] 1))
  37.  
  38. (defun insert-superscript-two nil (interactive "*") (byte-code "ijêIJcç" [nil 178] 1))
  39.  
  40. (defun insert-superscript-three nil (interactive "*") (byte-code "ijêIJcç" [nil 179] 1))
  41.  
  42. (defun insert-acute-accent nil (interactive "*") (byte-code "ijêIJcç" [nil 180] 1))
  43.  
  44. (defun insert-micro-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 181] 1))
  45.  
  46. (defun insert-pilcrow nil (interactive "*") (byte-code "ijêIJcç" [nil 182] 1))
  47.  
  48. (defun insert-middle-dot nil (interactive "*") (byte-code "ijêIJcç" [nil 183] 1))
  49.  
  50. (defun insert-cedilla nil (interactive "*") (byte-code "ijêIJcç" [nil 184] 1))
  51.  
  52. (defun insert-superscript-one nil (interactive "*") (byte-code "ijêIJcç" [nil 185] 1))
  53.  
  54. (defun insert-ordinal-indicator-masculine nil (interactive "*") (byte-code "ijêIJcç" [nil 186] 1))
  55.  
  56. (defun insert-angle-quotation-mark-right nil (interactive "*") (byte-code "ijêIJcç" [nil 187] 1))
  57.  
  58. (defun insert-fraction-one-quarter nil (interactive "*") (byte-code "ijêIJcç" [nil 188] 1))
  59.  
  60. (defun insert-fraction-one-half nil (interactive "*") (byte-code "ijêIJcç" [nil 189] 1))
  61.  
  62. (defun insert-fraction-three-quarters nil (interactive "*") (byte-code "ijêIJcç" [nil 190] 1))
  63.  
  64. (defun insert-inverted-question-mark nil (interactive "*") (byte-code "ijêIJcç" [nil 191] 1))
  65.  
  66. (defun insert-A-grave nil (interactive "*") (byte-code "ijêIJcç" [nil 192] 1))
  67.  
  68. (defun insert-A-acute nil (interactive "*") (byte-code "ijêIJcç" [nil 193] 1))
  69.  
  70. (defun insert-A-circumflex nil (interactive "*") (byte-code "ijêIJcç" [nil 194] 1))
  71.  
  72. (defun insert-A-tilde nil (interactive "*") (byte-code "ijêIJcç" [nil 195] 1))
  73.  
  74. (defun insert-A-umlaut nil (interactive "*") (byte-code "ijêIJcç" [nil 196] 1))
  75.  
  76. (defun insert-A-ring nil (interactive "*") (byte-code "ijêIJcç" [nil 197] 1))
  77.  
  78. (defun insert-AE nil (interactive "*") (byte-code "ijêIJcç" [nil 198] 1))
  79.  
  80. (defun insert-C-cedilla nil (interactive "*") (byte-code "ijêIJcç" [nil 199] 1))
  81.  
  82. (defun insert-E-grave nil (interactive "*") (byte-code "ijêIJcç" [nil 200] 1))
  83.  
  84. (defun insert-E-acute nil (interactive "*") (byte-code "ijêIJcç" [nil 201] 1))
  85.  
  86. (defun insert-E-circumflex nil (interactive "*") (byte-code "ijêIJcç" [nil 202] 1))
  87.  
  88. (defun insert-E-umlaut nil (interactive "*") (byte-code "ijêIJcç" [nil 203] 1))
  89.  
  90. (defun insert-I-grave nil (interactive "*") (byte-code "ijêIJcç" [nil 204] 1))
  91.  
  92. (defun insert-I-acute nil (interactive "*") (byte-code "ijêIJcç" [nil 205] 1))
  93.  
  94. (defun insert-I-circumflex nil (interactive "*") (byte-code "ijêIJcç" [nil 206] 1))
  95.  
  96. (defun insert-I-umlaut nil (interactive "*") (byte-code "ijêIJcç" [nil 207] 1))
  97.  
  98. (defun insert-D-stroke nil (interactive "*") (byte-code "ijêIJcç" [nil 208] 1))
  99.  
  100. (defun insert-N-tilde nil (interactive "*") (byte-code "ijêIJcç" [nil 209] 1))
  101.  
  102. (defun insert-O-grave nil (interactive "*") (byte-code "ijêIJcç" [nil 210] 1))
  103.  
  104. (defun insert-O-acute nil (interactive "*") (byte-code "ijêIJcç" [nil 211] 1))
  105.  
  106. (defun insert-O-circumflex nil (interactive "*") (byte-code "ijêIJcç" [nil 212] 1))
  107.  
  108. (defun insert-O-tilde nil (interactive "*") (byte-code "ijêIJcç" [nil 213] 1))
  109.  
  110. (defun insert-O-umlaut nil (interactive "*") (byte-code "ijêIJcç" [nil 214] 1))
  111.  
  112. (defun insert-multiplication-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 215] 1))
  113.  
  114. (defun insert-O-slash nil (interactive "*") (byte-code "ijêIJcç" [nil 216] 1))
  115.  
  116. (defun insert-U-grave nil (interactive "*") (byte-code "ijêIJcç" [nil 217] 1))
  117.  
  118. (defun insert-U-acute nil (interactive "*") (byte-code "ijêIJcç" [nil 218] 1))
  119.  
  120. (defun insert-U-circumflex nil (interactive "*") (byte-code "ijêIJcç" [nil 219] 1))
  121.  
  122. (defun insert-U-umlaut nil (interactive "*") (byte-code "ijêIJcç" [nil 220] 1))
  123.  
  124. (defun insert-Y-acute nil (interactive "*") (byte-code "ijêIJcç" [nil 221] 1))
  125.  
  126. (defun insert-THORN nil (interactive "*") (byte-code "ijêIJcç" [nil 222] 1))
  127.  
  128. (defun insert-ss nil (interactive "*") (byte-code "ijêIJcç" [nil 223] 1))
  129.  
  130. (defun insert-a-grave nil (interactive "*") (byte-code "ijêIJcç" [nil 224] 1))
  131.  
  132. (defun insert-a-acute nil (interactive "*") (byte-code "ijêIJcç" [nil 225] 1))
  133.  
  134. (defun insert-a-circumflex nil (interactive "*") (byte-code "ijêIJcç" [nil 226] 1))
  135.  
  136. (defun insert-a-tilde nil (interactive "*") (byte-code "ijêIJcç" [nil 227] 1))
  137.  
  138. (defun insert-a-umlaut nil (interactive "*") (byte-code "ijêIJcç" [nil 228] 1))
  139.  
  140. (defun insert-a-ring nil (interactive "*") (byte-code "ijêIJcç" [nil 229] 1))
  141.  
  142. (defun insert-ae nil (interactive "*") (byte-code "ijêIJcç" [nil 230] 1))
  143.  
  144. (defun insert-c-cedilla nil (interactive "*") (byte-code "ijêIJcç" [nil 231] 1))
  145.  
  146. (defun insert-e-grave nil (interactive "*") (byte-code "ijêIJcç" [nil 232] 1))
  147.  
  148. (defun insert-e-acute nil (interactive "*") (byte-code "ijêIJcç" [nil 233] 1))
  149.  
  150. (defun insert-e-circumflex nil (interactive "*") (byte-code "ijêIJcç" [nil 234] 1))
  151.  
  152. (defun insert-e-umlaut nil (interactive "*") (byte-code "ijêIJcç" [nil 235] 1))
  153.  
  154. (defun insert-i-grave nil (interactive "*") (byte-code "ijêIJcç" [nil 236] 1))
  155.  
  156. (defun insert-i-acute nil (interactive "*") (byte-code "ijêIJcç" [nil 237] 1))
  157.  
  158. (defun insert-i-circumflex nil (interactive "*") (byte-code "ijêIJcç" [nil 238] 1))
  159.  
  160. (defun insert-i-umlaut nil (interactive "*") (byte-code "ijêIJcç" [nil 239] 1))
  161.  
  162. (defun insert-d-stroke nil (interactive "*") (byte-code "ijêIJcç" [nil 240] 1))
  163.  
  164. (defun insert-n-tilde nil (interactive "*") (byte-code "ijêIJcç" [nil 241] 1))
  165.  
  166. (defun insert-o-grave nil (interactive "*") (byte-code "ijêIJcç" [nil 242] 1))
  167.  
  168. (defun insert-o-acute nil (interactive "*") (byte-code "ijêIJcç" [nil 243] 1))
  169.  
  170. (defun insert-o-circumflex nil (interactive "*") (byte-code "ijêIJcç" [nil 244] 1))
  171.  
  172. (defun insert-o-tilde nil (interactive "*") (byte-code "ijêIJcç" [nil 245] 1))
  173.  
  174. (defun insert-o-umlaut nil (interactive "*") (byte-code "ijêIJcç" [nil 246] 1))
  175.  
  176. (defun insert-division-sign nil (interactive "*") (byte-code "ijêIJcç" [nil 247] 1))
  177.  
  178. (defun insert-o-slash nil (interactive "*") (byte-code "ijêIJcç" [nil 248] 1))
  179.  
  180. (defun insert-u-grave nil (interactive "*") (byte-code "ijêIJcç" [nil 249] 1))
  181.  
  182. (defun insert-u-acute nil (interactive "*") (byte-code "ijêIJcç" [nil 250] 1))
  183.  
  184. (defun insert-u-circumflex nil (interactive "*") (byte-code "ijêIJcç" [nil 251] 1))
  185.  
  186. (defun insert-u-umlaut nil (interactive "*") (byte-code "ijêIJcç" [nil 252] 1))
  187.  
  188. (defun insert-y-acute nil (interactive "*") (byte-code "ijêIJcç" [nil 253] 1))
  189.  
  190. (defun insert-thorn nil (interactive "*") (byte-code "ijêIJcç" [nil 254] 1))
  191.  
  192. (defun insert-y-umlaut nil (interactive "*") (byte-code "ijêIJcç" [nil 255] 1))
  193.  
  194. (defvar 8859-1-map nil "\
  195. Keymap for ISO 8859/1 character insertion.")
  196.  
  197. (if 8859-1-map nil (setq 8859-1-map (make-keymap)) (define-key 8859-1-map " " (quote insert-no-break-space)) (define-key 8859-1-map "!" (quote insert-inverted-exclamation-mark)) (define-key 8859-1-map "\"" (make-sparse-keymap)) (define-key 8859-1-map "\"\"" (quote insert-diaeresis)) (define-key 8859-1-map "\"A" (quote insert-A-umlaut)) (define-key 8859-1-map "\"E" (quote insert-E-umlaut)) (define-key 8859-1-map "\"I" (quote insert-I-umlaut)) (define-key 8859-1-map "\"O" (quote insert-O-umlaut)) (define-key 8859-1-map "\"U" (quote insert-U-umlaut)) (define-key 8859-1-map "\"a" (quote insert-a-umlaut)) (define-key 8859-1-map "\"e" (quote insert-e-umlaut)) (define-key 8859-1-map "\"i" (quote insert-i-umlaut)) (define-key 8859-1-map "\"o" (quote insert-o-umlaut)) (define-key 8859-1-map "\"u" (quote insert-u-umlaut)) (define-key 8859-1-map "\"y" (quote insert-y-umlaut)) (define-key 8859-1-map "'" (make-sparse-keymap)) (define-key 8859-1-map "''" (quote insert-acute-accent)) (define-key 8859-1-map "'A" (quote insert-A-acute)) (define-key 8859-1-map "'E" (quote insert-E-acute)) (define-key 8859-1-map "'I" (quote insert-I-acute)) (define-key 8859-1-map "'O" (quote insert-O-acute)) (define-key 8859-1-map "'U" (quote insert-U-acute)) (define-key 8859-1-map "'Y" (quote insert-Y-acute)) (define-key 8859-1-map "'a" (quote insert-a-acute)) (define-key 8859-1-map "'e" (quote insert-e-acute)) (define-key 8859-1-map "'i" (quote insert-i-acute)) (define-key 8859-1-map "'o" (quote insert-o-acute)) (define-key 8859-1-map "'u" (quote insert-u-acute)) (define-key 8859-1-map "'y" (quote insert-y-acute)) (define-key 8859-1-map "$" (quote insert-general-currency-sign)) (define-key 8859-1-map "+" (quote insert-plus-or-minus-sign)) (define-key 8859-1-map "," (make-sparse-keymap)) (define-key 8859-1-map ",," (quote insert-cedilla)) (define-key 8859-1-map ",C" (quote insert-C-cedilla)) (define-key 8859-1-map ",c" (quote insert-c-cedilla)) (define-key 8859-1-map "-" (quote insert-soft-hyphen)) (define-key 8859-1-map "." (quote insert-middle-dot)) (define-key 8859-1-map "/" (make-sparse-keymap)) (define-key 8859-1-map "//" (quote insert-division-sign)) (define-key 8859-1-map "/O" (quote insert-O-slash)) (define-key 8859-1-map "/o" (quote insert-o-slash)) (define-key 8859-1-map "1" (make-sparse-keymap)) (define-key 8859-1-map "1/" (make-sparse-keymap)) (define-key 8859-1-map "1/2" (quote insert-fraction-one-half)) (define-key 8859-1-map "1/4" (quote insert-fraction-one-quarter)) (define-key 8859-1-map "3" (make-sparse-keymap)) (define-key 8859-1-map "3/" (make-sparse-keymap)) (define-key 8859-1-map "3/4" (quote insert-fraction-three-quarters)) (define-key 8859-1-map "<" (quote insert-angle-quotation-mark-left)) (define-key 8859-1-map "=" (quote insert-macron)) (define-key 8859-1-map ">" (quote insert-angle-quotation-mark-right)) (define-key 8859-1-map "?" (quote insert-inverted-question-mark)) (define-key 8859-1-map "A" (make-sparse-keymap)) (define-key 8859-1-map "AA" (quote insert-A-ring)) (define-key 8859-1-map "AE" (quote insert-AE)) (define-key 8859-1-map "C" (quote insert-copyright-sign)) (define-key 8859-1-map "D" (quote insert-D-stroke)) (define-key 8859-1-map "L" (quote insert-pound-sign)) (define-key 8859-1-map "P" (quote insert-pilcrow)) (define-key 8859-1-map "R" (quote insert-registered-sign)) (define-key 8859-1-map "S" (quote insert-section-sign)) (define-key 8859-1-map "T" (quote insert-THORN)) (define-key 8859-1-map "Y" (quote insert-yen-sign)) (define-key 8859-1-map "^" (make-sparse-keymap)) (define-key 8859-1-map "^1" (quote insert-superscript-one)) (define-key 8859-1-map "^2" (quote insert-superscript-two)) (define-key 8859-1-map "^3" (quote insert-superscript-three)) (define-key 8859-1-map "^A" (quote insert-A-circumflex)) (define-key 8859-1-map "^E" (quote insert-E-circumflex)) (define-key 8859-1-map "^I" (quote insert-I-circumflex)) (define-key 8859-1-map "^O" (quote insert-O-circumflex)) (define-key 8859-1-map "^U" (quote insert-U-circumflex)) (define-key 8859-1-map "^a" (quote insert-a-circumflex)) (define-key 8859-1-map "^e" (quote insert-e-circumflex)) (define-key 8859-1-map "^i" (quote insert-i-circumflex)) (define-key 8859-1-map "^o" (quote insert-o-circumflex)) (define-key 8859-1-map "^u" (quote insert-u-circumflex)) (define-key 8859-1-map "_" (make-sparse-keymap)) (define-key 8859-1-map "_a" (quote insert-ordinal-indicator-feminine)) (define-key 8859-1-map "_o" (quote insert-ordinal-indicator-masculine)) (define-key 8859-1-map "`" (make-sparse-keymap)) (define-key 8859-1-map "`A" (quote insert-A-grave)) (define-key 8859-1-map "`E" (quote insert-E-grave)) (define-key 8859-1-map "`I" (quote insert-I-grave)) (define-key 8859-1-map "`O" (quote insert-O-grave)) (define-key 8859-1-map "`U" (quote insert-U-grave)) (define-key 8859-1-map "`a" (quote insert-a-grave)) (define-key 8859-1-map "`e" (quote insert-e-grave)) (define-key 8859-1-map "`i" (quote insert-i-grave)) (define-key 8859-1-map "`o" (quote insert-o-grave)) (define-key 8859-1-map "`u" (quote insert-u-grave)) (define-key 8859-1-map "a" (make-sparse-keymap)) (define-key 8859-1-map "aa" (quote insert-a-ring)) (define-key 8859-1-map "ae" (quote insert-ae)) (define-key 8859-1-map "c" (quote insert-cent-sign)) (define-key 8859-1-map "d" (quote insert-d-stroke)) (define-key 8859-1-map "o" (quote insert-degree-sign)) (define-key 8859-1-map "s" (quote insert-ss)) (define-key 8859-1-map "t" (quote insert-thorn)) (define-key 8859-1-map "u" (quote insert-micro-sign)) (define-key 8859-1-map "x" (quote insert-multiplication-sign)) (define-key 8859-1-map "|" (quote insert-broken-vertical-line)) (define-key 8859-1-map "~" (make-sparse-keymap)) (define-key 8859-1-map "~A" (quote insert-A-tilde)) (define-key 8859-1-map "~N" (quote insert-N-tilde)) (define-key 8859-1-map "~O" (quote insert-O-tilde)) (define-key 8859-1-map "~a" (quote insert-a-tilde)) (define-key 8859-1-map "~n" (quote insert-n-tilde)) (define-key 8859-1-map "~o" (quote insert-o-tilde)) (define-key 8859-1-map "~~" (quote insert-not-sign)) (if (not (lookup-key global-map "⑧8")) (define-key global-map "⑧8" 8859-1-map)))
  198.  
  199. (provide (quote iso8859-1-insert))
  200.